home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / prgtools / apm1612c.zip / APM1.FRM < prev    next >
Text File  |  1996-08-25  |  3KB  |  107 lines
  1. VERSION 4.00
  2. Begin VB.Form apm1 
  3.    Caption         =   "apm1"
  4.    ClientHeight    =   6450
  5.    ClientLeft      =   2055
  6.    ClientTop       =   2760
  7.    ClientWidth     =   6690
  8.    Height          =   6855
  9.    Left            =   1995
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6450
  12.    ScaleWidth      =   6690
  13.    Top             =   2415
  14.    Width           =   6810
  15.    Begin VB.CommandButton CmdExit 
  16.       Caption         =   "Exit"
  17.       Height          =   735
  18.       Left            =   3960
  19.       TabIndex        =   4
  20.       Top             =   4680
  21.       Width           =   1575
  22.    End
  23.    Begin VB.CommandButton cmdProgMaint 
  24.       Caption         =   "Program Maintenance"
  25.       Height          =   735
  26.       Left            =   3960
  27.       TabIndex        =   3
  28.       Top             =   3600
  29.       Width           =   1575
  30.    End
  31.    Begin VB.CommandButton cmdAuthMaint 
  32.       Caption         =   "Author Maintenance"
  33.       Height          =   735
  34.       Left            =   3960
  35.       TabIndex        =   2
  36.       Top             =   2520
  37.       Width           =   1575
  38.    End
  39.    Begin VB.Label Label2 
  40.       Alignment       =   2  'Center
  41.       Caption         =   "Shareware File Maintenance"
  42.       BeginProperty Font 
  43.          name            =   "News Gothic MT"
  44.          charset         =   0
  45.          weight          =   400
  46.          size            =   15.75
  47.          underline       =   0   'False
  48.          italic          =   0   'False
  49.          strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   855
  52.       Left            =   1560
  53.       TabIndex        =   1
  54.       Top             =   1080
  55.       Width           =   3375
  56.    End
  57.    Begin VB.Label Label1 
  58.       Alignment       =   2  'Center
  59.       Caption         =   "JCS Marketing, Inc."
  60.       BeginProperty Font 
  61.          name            =   "News Gothic MT"
  62.          charset         =   0
  63.          weight          =   400
  64.          size            =   15.75
  65.          underline       =   0   'False
  66.          italic          =   0   'False
  67.          strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   615
  70.       Left            =   1680
  71.       TabIndex        =   0
  72.       Top             =   360
  73.       Width           =   3135
  74.    End
  75. End
  76. Attribute VB_Name = "apm1"
  77. Attribute VB_Creatable = False
  78. Attribute VB_Exposed = False
  79.  
  80. Private Sub cmdAuthMaint_Click()
  81.  
  82.    frm1.Hide
  83.    frm2.Show
  84.    
  85. End Sub
  86.  
  87. Private Sub CmdExit_Click()
  88.    
  89.    End
  90.    
  91. End Sub
  92.  
  93. Private Sub cmdProgMaint_Click()
  94.  
  95.   If AuthorFileIn = 2 Then  ' author file available
  96.     frm1.Hide
  97.     Call ClearProgArea
  98.     
  99.     frm3.Show
  100.   Else
  101.     MsgBox ("Cannot - must create author file first")
  102.   End If
  103.   
  104. End Sub
  105.  
  106.  
  107.